home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / applications / databases / addressassist.lha / AddressAssist_Install / Install < prev    next >
Encoding:
Text File  |  1994-10-27  |  3.4 KB  |  144 lines
  1. ; **************************************************************************
  2. ; *****                                                                *****
  3. ; *****                   I N S T A L L - S C R I P T                  *****
  4. ; *****                                                                *****    
  5. ; **************************************************************************
  6. ; $Id: Install,v 38.15 1994/10/26 23:11:02 schneida Exp schneida $
  7. ; **************************************************************************
  8.  
  9. (transcript "Installing AddressAssist...")
  10.  
  11. ; **************************************************************************
  12. ; **************************************************************************
  13. ; **************************************************************************
  14.  
  15. (set @default-dest "ram:")
  16.  
  17. (complete 10)
  18.  
  19. (set @default-dest
  20.     (askdir (prompt "Select destination path for 'AddressAssist' drawer:" )
  21.     (help "The Install-Program will create a directory called 'AddressAssist' into this destination directory and copy all necessary file to there.")
  22.     (default @default-dest)
  23.     )
  24. )
  25.  
  26. (set @default-dest 
  27.     ( tackon @default-dest "AddressAssist" )
  28. )
  29.  
  30. (message "Installing '" @app-name "' to\n\n'"@default-dest "'" )
  31.  
  32. (makedir @default-dest
  33.     (infos)
  34.     (safe)
  35. )
  36.  
  37. (set progversion 
  38.     (askchoice
  39.     (prompt "Your system is running a " (database "cpu") " CPU.\n\n Which version of the program would you like to install ???" )
  40.     (choices "Standard (running all CPU's)" "Turbo (optimized for 68020/030)" )
  41.     (help "Select the correct program version, depending on your installed CPU. If you dont't know what type of CPU your machine has, install the standard version of the program,")
  42.     (default 0)
  43.     )
  44. )    
  45.  
  46. (if ( = 0 progversion )
  47.     (
  48.         (set progname "AddressAssist")
  49.         (message "Installing 'Standard' version of '" @app-name "'" )
  50.     )
  51.     (     
  52.         (set progname "AddressAssist_030")
  53.         (message "Installing 'Turbo' version of '" @app-name "'" )
  54.     )
  55. )
  56.  
  57. ; **************************************************************************
  58. ; **************************************************************************
  59. ; **************************************************************************
  60.  
  61. (complete 20)
  62.  
  63. (copyfiles 
  64.     (source progname )
  65.     (dest @default-dest)
  66.     (newname "AddressAssist")
  67. )
  68.  
  69. (copyfiles 
  70.     (source "AddressAssist.info" )
  71.     (dest @default-dest)
  72.     (newname "AddressAssist.info")
  73. )
  74.  
  75. (copyfiles
  76.     (source "MUI" )
  77.     (dest "env:mui" )
  78.     (pattern "#?" )
  79.     (nogauge)
  80. )
  81.  
  82. (copyfiles
  83.     (source "MUI" )
  84.     (dest "envarc:mui" )
  85.     (pattern "#?" )
  86.     (nogauge)
  87. )
  88.  
  89. (complete 60)
  90.  
  91. (if     (askbool 
  92.         (prompt "Would you like copy the english documentation files ???" )
  93.         (help @askbool-help)
  94.     )
  95.     (
  96.     (copyfiles 
  97.         (source "Doc_English" )
  98.         (dest (tackon @default-dest "Documentation" ))
  99.         (pattern "#?")
  100.         (infos)
  101.     )
  102.     )
  103. )
  104.  
  105.  
  106. (complete 80)
  107.  
  108. (if     (askbool 
  109.         (prompt "Would you like install the german catalog file ??? You need locale.library V38 and the logical assignment 'LOCALE:' for localisation to work." )
  110.         (help @askbool-help)
  111.     )
  112.     (
  113.     (copyfiles 
  114.         (source "catalogs/deutsch/AddressAssist.catalog" )
  115.         (dest "locale:catalogs/deutsch")
  116.         (safe)
  117.     )
  118.     )
  119. )
  120.  
  121. (complete 90)
  122.  
  123. (if     (askbool 
  124.         (prompt "Would you like copy an example database file ???" )
  125.         (help @askbool-help)
  126.     )
  127.     (
  128.     (copyfiles (
  129.             (source "Addresses" )
  130.             (dest @default-dest )
  131.             (newname "Addresses" )
  132.         )
  133.     )
  134.     (copyfiles (
  135.             (source "AddressAssist.prefs" )
  136.             (dest @default-dest )
  137.             (newname "AddressAssist.prefs" )
  138.         )
  139.     )
  140.     )
  141. )
  142.  
  143. (complete 100)
  144.